object Fprocuracliente: TFprocuracliente
  Left = 439
  Top = 219
  Width = 392
  Height = 486
  Caption = 'Procura Cliente'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 78
    Height = 13
    Caption = 'Nome do Cliente'
  end
  object Edit1: TEdit
    Left = 8
    Top = 32
    Width = 361
    Height = 21
    CharCase = ecUpperCase
    TabOrder = 0
    OnChange = Edit1Change
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 55
    Width = 361
    Height = 387
    DataSource = ds_clientes
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object IBCConnection1: TIBCConnection
    Database = 'c:\brasfort\brasfort.fdb'
    Options.Charset = 'win1252'
    ClientLibrary = 'C:\brasfort\fbclient.dll'
    Username = 'sysdba'
    Password = 'masterkey'
    Server = 'localhost'
    Connected = True
    Left = 56
    Top = 128
  end
  object clientes: TIBCQuery
    Connection = IBCConnection1
    SQL.Strings = (
      'select codigo, nome from clientes')
    Active = True
    Left = 72
    Top = 184
    object clientesCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
    object clientesNOME: TStringField
      FieldName = 'NOME'
      Size = 58
    end
  end
  object ds_clientes: TIBCDataSource
    DataSet = clientes
    Left = 200
    Top = 152
  end
end
